#!/usr/bin/perl
use strict;
use warnings;
use Tk;

my $mw = new MainWindow;

my $menubar = $mw -> Menu();

my $file_menu = $menubar -> cascade(
	-label => '~File',
);

my $help_menu = $menubar -> cascade(
	-label => '~Help',
);

$mw -> configure(-menu => $menubar);

MainLoop();

